5 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0:A$=""
10 V=1873:A=1:B=-40:C=-1:D=40:Q=160:R=INT(15*RND(1))+1:S=54272
20 GOSUB200:GETA$:GOSUB125
30 POKE1093,32
40 V=1215:A=-1:B=40:C=1:D=-40:R=INT(15*RND(1))+1
50 GOSUB200:GETA$:GOSUB125
60 POKE1995,32
70 V=1893:A=-1:B=-40:C=1:D=40:R=INT(15*RND(1))+1
80 GOSUB200:GETA$:GOSUB125
90 POKE1073,32
100 V=1191:A=1:B=40:C=-1:D=-40:R=INT(15*RND(1))+1
110 GOSUB200:GETA$:GOSUB125
120 POKE2011,32:GOTO130
125 IFA$THENPRINT"[147]":END
126 RETURN
130 FORT=1TO1000:NEXT:GOTO5
200 FORP=1TO10:POKEV,Q:POKEV+S,R
210 N=1:FORX=1TON:POKEV+A,Q:POKEV+S,R:V=V+A:NEXT
220 FORX=1TON:POKEV+B,Q:POKEV+S,R:V=V+B:NEXT
230 N=N+1:FORX=1TON:POKEV+C,Q:POKEV+S,R:V=V+C:NEXT
240 FORX=1TON:POKEV+D,Q:POKEV+S,R:V=V+D:NEXT
250 N=N+1:FORX=1TON:POKEV+A,Q:POKEV+S,R:V=V+A:NEXT
260 FORX=1TON:POKEV+B,Q:POKEV+S,R:V=V+B:NEXT
270 NEXTP
280 RETURN